Imports Microsoft.VisualBasic
Namespace BusinessLogic
    Public Class Points
        Implements ModelLayer.IPoints
        Public Sub Claim()
            DataAccess.PointsData.Claim(Me)
        End Sub

        Public Sub Save()
            DataAccess.PointsData.Save(Me)
        End Sub

        Public Sub LoadPointsByUserName()
            DataAccess.PointsData.LoadPointsByUserName(Me)
        End Sub

        Dim _Comments As String
        Public Property Comments() As String Implements ModelLayer.IPoints.Comments
            Get
                Return _Comments
            End Get
            Set(ByVal value As String)
                _Comments = value
            End Set
        End Property
        Dim _DataTimeStamp As Date
        Public Property DataTimeStamp() As Date Implements ModelLayer.IPoints.DataTimeStamp
            Get
                Return _DataTimeStamp
            End Get
            Set(ByVal value As Date)
                _DataTimeStamp = value
            End Set
        End Property
        Dim _IPAddress As String
        Public Property IPAddress() As String Implements ModelLayer.IPoints.IPAddress
            Get
                Return _IPAddress
            End Get
            Set(ByVal value As String)
                _IPAddress = value
            End Set
        End Property
        Dim _TotalPoints As Integer
        Public Property TotalPoints() As Integer Implements ModelLayer.IPoints.TotalPoints
            Get
                Return _TotalPoints
            End Get
            Set(ByVal value As Integer)
                _TotalPoints = value
            End Set
        End Property
        Dim _Username As String
        Public Property Username() As String Implements ModelLayer.IPoints.Username
            Get
                Return _Username
            End Get
            Set(ByVal value As String)
                _Username = value
            End Set
        End Property
        Dim _UserPoints As Integer
        Public Property UserPoints() As Integer Implements ModelLayer.IPoints.UserPoints
            Get
                Return _UserPoints
            End Get
            Set(ByVal value As Integer)
                _UserPoints = value
            End Set
        End Property

        Dim _Activity As Integer
        Public Property Activity() As Integer Implements ModelLayer.IPoints.Activity
            Get
                Return _Activity
            End Get
            Set(ByVal value As Integer)
                _Activity = value
            End Set
        End Property
    End Class
End Namespace